﻿Public Class clsGtNgProcedure
    Public Function getGtNgProcedureList(b_gt_sys_id As String) As DataTable
        Dim szSql As String = ""
        szSql &= " select * from sf.b_gt_ng_procedure "
        szSql &= "where b_gt_sys_id = ? order by procedure_no"
        Dim dt As DataTable = DBacs.ExecuteSql(szSql, -1, b_gt_sys_id)
        If IsNothing(dt) Then
            getGtNgProcedureList = New DataTable
        Else
            getGtNgProcedureList = dt
        End If
    End Function
End Class
